home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / net_port.zip / RUNALL.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-04-16  |  516b  |  44 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  516 bytes  03/09/122  08:19:18am
  3. '! Code Segment Size  :488 bytes
  4. '! Data Segment Size  :4519 bytes
  5. '! String Segment Size:28 bytes
  6. '! Compiled with WCC version 4.12
  7.  
  8.       Dim s4463(0 To 10) As String
  9.       Dim i4507 As Integer
  10.       Dim i4509 As Integer
  11.       Dim s4511 As String
  12.       Dim s4515 As String
  13.  
  14.       Dim l65530_ As Long
  15.       Dim i65534_ As Integer
  16.  
  17.       EnablePages 0
  18.       s4511 = ProgPath + "RUNALL.CFG"
  19.       If ParamCount > 0 Then
  20.         s4511 = ProgPath + ParamStr(1)
  21.       End If
  22.    84 Cls 
  23.       Print "Reading" + s4511
  24.       UpdateScreen 
  25.       i4507 = 0
  26.       If Exists(s4511) Then
  27.         Open s4511 For Input As 1
  28.   143   Do While Not EOF(1)
  29.           Input #1, s4515
  30.           If Trim(s4515) <> "" And Left(s4515, 1) <> ";" Then
  31.             i4507 = i4507 + 1
  32.             s4463(i4507) = Trim(UCase(s4515))
  33.           End If
  34.   253   Loop
  35.   259   Close 1
  36.       End If
  37.   264
  38.   288 For i4509 = 1 To i4507 Step 1
  39.         Print s4463(i4509)
  40.         UpdateScreen 
  41.         Run s4463(i4509), ""
  42.       Next
  43.   432
  44.